subroutine printdetial(title, iin, istart, ilth)
use mod_iop
use mod_size
use mod_orbit
use mod_ioff 
implicit none 
!
character*(*), intent(in) :: title
real*4, intent(in) :: iin(*)
integer, intent(in) :: istart, ilth
!
if(prec==8) then 
   call printdetial_d(title, iin, istart, ilth) 
elseif(prec==4) then 
   call printdetial_s(title, iin, istart, ilth)
endif 
!
return
end
!
subroutine printdetial_s(title, iin, istart, ilth)
use mod_iop
use mod_size
use mod_orbit
use mod_ioff 
implicit none 
!
real*4, intent(in) :: iin(*)
integer, intent(in) :: istart, ilth
character*(*), intent(in) :: title
!
integer i 
!
do i = istart, istart + ilth - 1
   write(6,*) title, i, iin(i)
enddo
!
return
end
!
subroutine printdetial_d(title, iin, istart, ilth)
use mod_iop
use mod_size
use mod_orbit
use mod_ioff 
implicit none 
!
real*8, intent(in) :: iin(*)
integer, intent(in) :: istart, ilth
character*(*), intent(in) :: title
!
integer i
!
do i = istart, istart + ilth - 1
   write(6,*) title, i, iin(i)
enddo
!
return
end
